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ABSTRACT 

Fisher  has  recently  described  a  new  procedure 
for  global  microcode  compaction  which  he  calls 
"trace  scheduling."  We  have  implemented  this 
procedure  and  tested  it  on  several  microcode 
sequences.  We  report  in  this  correspondence  on 
the  relative  effectiveness  of  local  compaction, 
manual  compaction,  and  trace  scheduling  on  these 
sequences. 
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Fisher  [1]  recently  described  a  new,  relatively  complex 
procedure  for  global  microcode  compaction  which  he  calls 
"trace  scheduling".  To  evaluate  the  efficacy  of  this 
algorithm,  we  have  implemented  it  and  tested  it  on  several 
microcode  sequences. 

THE  PROBLEM 

To  take  advantage  of  the  parallelism  inherent  in  a 
horizontally  microprogrammed  machine,  it  is  necessary  to 
convert  sequential  microcode  into  equivalent  parallel 
microcode.  This  task  is  called  microprogram  compaction  or 
optimization.  Because  the  task  often  involes  interweaving 
logically  separate  code  sequences,  it  is  a  tedious  and 
error-prone  operation.  As  a  result,  there  has  been 
considerable  research  over  the  past  few  years  on  automating 
this  process. 

Most  of  this  research  has  focussed  on  local  compaction 
the  compaction  of  individual  basic  blocks  [2]  .  However, 
because  basic  blocks  in  microcode  are  typically  rather 
short,  efficiencies  approaching  those  of  hand-written 
microcode  can  be  achieved  only  by  a  procedure  which  is 
willing  to  move  micro-operations  from  one  basic  block  to 
another  —  global  compaction. 

TRACE  SCHEDULING 

Earlier  procedures  for  global  microcode  compaction  have 
been  based  on  a  menu  of  rules  for  moving  micro-operations 
from  one  basic  block  to  another  [3].  Such  procedures  can 
involve  extensive  tree  searches  (trying  alternative 
sequences  of  microcode  motions)  and  hence  be  very  costly. 

Fisher  has  proposed  trace  scheduling  as  an  alternative 
approach.  In  essence,  trace  scheduling  begins  by 
identifying  the  most  frequently  traversed  path  through  a 
section  of  microcode.  A  local  compaction  procedure  is 
applied  to  this  path,  scheduling  branch  micro-operations 
just  like  other  micro-operations  (within  data  precedence 
constraints) .  Because  arithmetic  micro-operations  may  be 
moved  relative  to  branches,  a  bookkeeping  phase  is  required 
after  compaction  to  "fix  up"  the  microcode  so  that  it  is 
equivalent  to  the  original  (this  primarily  involves 
inserting  duplicates  of  moved  micro-operations  into  paths 
which  enter  or  leave  the  main  path) .  The  procedure  is  then 
repeated  on  the  main  path  through  the  code  which  remains 
uncompacted.  If  the  code  contains  loops,  the  procedure  will 
be  first  applied  recursively  to  compact  each  loop. 
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IMPLEMENTATION 


We  have  implemented  most  of  the  procedures  described  in 
Fisher  [1],  including  the  Schedule  and  Bookkeep  routines, 
and  all  of  the  subroutines  they  invoke;  the  extensions 
needed  for  scheduling  code  with  loops*  and  for  handling 
equal  edges  in  the  data  precedence  graph.  We  have  not 
automated  the  Picktrace  algorithm,  which  selects  the  next 
path  to  schedule;  instead,  we  have  specified  manually  the 
order  in  which  paths  are  to  be  considered.  We  have  also  not 
implemented  the  rules  which  Fisher  grouped  under 
"enhancements",  such  as  space  saving,  task  lifting,  and  his 
rules  R2  and  R4 . 

The  implementation  has  been  done  in  the 
"very-high-level"  language  SETL  [4]  running  on  a  VAX-11/780. 
The  use  of  SETL  has  speeded  implementation  and  resulted  in  a 
rather  short,  although  very  slow,  program  (the  program  is 
approximately  3000  lines  long  and  takes  about  7  minutes  to 
schedule  a  microcode  segment  of  49  micro-operations) . 

EXPERIMENTS 

We  at  N.Y.U.  had  previously  designed  and  built  a 
horizontally  microprogrammed  emulator  for  the  Control  Data 
6600  central  processor  [5]  ;  three  of  these  machines,-  dubbed 
PUMAs,  are  currently  in  operation.  The  microcoding  of  the 
original  PUMA  provided  the  impetus  for  Fisher's  research, 
and  Fisher  used  two  PUMA  microcode  sequences  as  examples  in 
his  dissertation,  where  he  worked  through  his  algorithms  by 
hand.  We  decided  to  check  one  of  Fisher's  examples  on  our 
implementation,  and  then  to  try  two  a-dtJitional,  somewhat 
longer,  PUMA  code  segments.  As  one  might  expect,  the  most 
complex  code  sequences  —  and  hence  the  most  challanging  for 
compaction  —  are  those  for  floating-point  arithmetic. 
Fisher  chose  as  his  examples  the  microcode  for  the  normalize 
instruction  and  a  portion  of  the  floating  multiply.  We 
added  to  these  the  sequences  for  floating  addition  and 
division.  The  addition  sequence  has  42  micro-operations, 
including  11  conditional  jumps;  the  division  sequence  49 
micro-operations  and  15  conditional  jumps. 

As  our  benchmarks  for  evaluating  trace  scheduling  we 
used  the  "production"  PUMA  microcode.  This  was  very 
carefully  hand-coded  and  reviewed  by  several  readers,  and  is 
therefore  probably  optimally  compacted  or  nearly  so.  To 
provide  the  input  to  the  scheduler  we  rewrote  the  selected 
sequences  as  sequential  PUMA  microcode.  This  was  not  just  a 
process  of  serializing   parallel   code.    We  went   back   to 


*  Except  that  our  implementation,  after  placing  a  loop 
representative  into  a  cycle,  does  not  attempt  to  place  any 
additional  micro-operations  into  that  cycle. 
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flowcharts  for  the  arithmetic  operations  and  tried  to  write 
the  clearest  possible  sequential  code,  without  regard  for 
subsequent  compaction.  The  flow  graphs  of  the  resulting 
sequential  microcode  are  substantially  different  from  those 
for  the  production  (compacted)  code.  Nonetheless,  we 
recognize  that  the  fact  that  we  wrote  the  sequential  code 
with  an  awareness  of  the  parallel  code  does  introduce  a 
possible  bias  in  favor  of  the  compaction  algorithm. 

One  machine-specific  optimization  was  performed  by  hand 
before  submitting  the  sequential  code  to  the  compaction 
procedure:  if  a  conditional  branch  tests  the  output  of  a 
register  which  was  set  by  the  previous  micro-operation, 
these  two  operations  can  be  combined  into  a  single 
microinstruction  with  a  conditional  branch  testing  the  input 
to  the  register  (for  many,  but  not  all,  conditional  branches 
in  the  PUMA  testing  the  output  of  a  register  there  are 
corresponding  -.operations  testing  the  register's  input). 
Since  this  is  a  local  optimization,  it  should  not  be  very 
difficult  to  automate. 

As  a  consequence  of  moving  conditional  branches 
relative  to  other  operations,  Fisher's  compaction  procedure 
may  generate  jnany  copies  of  a  micro-operation  in  the  initial 
code.  Often  there  will  be  alternative  schedules  which  are 
as  fast  (or  nearly  as  fast)  but  require  less  duplication  of 
micro-operations  (and  hence  Less  space  in  the  microprogram 
store)  .  Fisher  _-  suggests  some  automatic  "space  saving" 
techniques  '  f or  "  finding  such  schedules;  we  have  not 
implemented  these.  However,  to  prevent  the  motion  of 
conditional  branches  (and  hence  reduce  code  duplication)  in 
some  cases  where  we  beli-e-ved  that  the  motion  would  not 
improve  the  schedule,  we  have  manually  added  some  edges  to 
the  data  precedence  graph  generated  by  Fisher's  algorithm. 

We  have  also  included  a  rule  which  avoids  a  substantial 
amount  of  the  code  duplication  which  Fisher  would  perform 
and  later  undo  with  his  rules  R2  and  R4 .  We  frequently  have 
a  situation  in  the  microcode  where  a  path  forks  (at  a 
conditional  jump)  into  two  basic  blocks  (call  them  A  and  B) 
which  subsequently  rejoin.  When  a  trace  including  block  A 
is  scheduled,  a  micro-operation  m  may  be  moved  from  above 
the  fork  to  below  the  rejoin,  or  vice  versa.  In  general, 
this  will  entail  (during  the  "bookkeeping  phase")  adding 
micro-operations  to  block  B  and  moving  the  rejoin  point. 
However,  if  (using  Fisher's  terminology),  the  union  of 
readreg,  writereg  and  condreadreg  of  micro-operation  m  does 
not  intersect  the  readreg  or  writereg  of  any  micro-operation 
in  B,  m  may  be  moved  without  any  associated  bookkeeping. 

Finally,  in  order  to  obtain  some  measure  of  the 
relative  advantage  of  global  over  local  compaction,  we 
manually  performed  a  local  compaction  of  these  code 
sequences  (i.e.,  code  was  moved  only  within  a  basic  block, 
not  between  blocks) . 
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RESULTS 


Table  1  summarizes  the  results  of  the  compaction 
procedure.  For  purposes  of  analysis,  we  have  divided  the 
floating  addition  into  three  parts  (initialization, 
coerficient  shift,  and  add)  and  similarly  the  floating 
divide  (initialization,  divide  loop,  and  normalization  and 
rounding).  We  successfully  reproduced  Fisher's  results  for 
the  multiply  initialization  sequence,  and  repeat  those 
results  here.*  The  timing  data  represent  weighted  averages 
based  on  estimates  of  the  relative  frequency  of  the  various 
paths. 

The  actual  code  sequences  —  sequential,  hand 
compacted,  machine  compacted  (trace  scheduled) ,  and  locally 
compacted  —  are  shown  in  Appendix  A,  and  more  detailed 
timing  data  is  given  in  Appendix  B.  '-_- 

DISCUSSION         .-'cr.  1.  •• 

The  results  of  trace  scheduling  compared  quite 
favorably  with  the  hand-compacted  code.  The  shift  loop  in 
the  floating  add  and  one  path  of  the  divide  loop  were  one 
cycle  longer  in  the  trace  scheduled  versions;  the 
initialization  of  the  floating  add  was  two  cycles  longer. 
All  other  code  segments  were  compacted  as  well  as  the 
hand-coded  versions  (in  the  floating  divide,  the  split  of 
microoperations  between  pre-  and  post-loop  is  different  in 
the  two  versions,  but  the  total  time  was  slightly  shorter 
(by  perhaps  0.1  cycle)  for  the  machine  compacted  code).  The 
locally  compacted  code  was  in  most  cases  substantially 
slower  than  either  the  hand  compacted  or  trace  scheduled 
code,  thus  confirming  the  need  for  some  global  scheduling 
strategy. 

The  reason  for  the  differences  between  the  timings  of 
the  hand  compacted  and  trace  scheduled  code  in  the  shift  and 
divide  loops  is  readily  explained.  In  each  case  in  the 
sequential  code  the  conditional  jump  is  at  the  beginning  of 
the  loop,  with  an  unconditional  jump  at  the  end  back  to  the 
beginning.  This  structure  is  preserved  in  the 
machine-compacted  code.  In  the  hand-coded  version,  the 
conditional  branch  is  replicated  at  the  end  of  the  loop, 
thus  avoiding  the  unconditional  branch.  We  could 
incorporate  such  a  specialized  optimization  into  our  machine 
compaction  procedure.  More  ambitiously,  we  could  develop  a 
procedure    to   unroll   (replicate)   a   loop,   schedule   the 


*  Because  our  procedure  does  not  incorporate  space 
saving,  our  multiply  sequence  involved  more  code  duplication 
than  Fisher's  result,  but  the  timing  of  the  main  path  in  the 
two  versions  was  identical. 
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unrolled  loop  (possibly  moving  an  operation  from  one 
iteration  to  another),  and  then  reroll  the  loop  (identifying 
repeating  code  segments)  [3] .  Such  a  procedure  should  be 
able  to  perform  the  optimization  just  cited. 

The  difference  in  the  initialization  segment  of  the 
floating  add  is  more  complex.  At  one  point  this  code  forks, 
with  one  path  interchanging  two  registers,  the  other  not 
doing  so.  The  hand-compacted  code  inserts  into  the  latter 
path  two  successive  interchanges  (an  identity)  and  then 
moves  the  interchange  now  shared  by  both  paths  to  before  the 
fork.  We  do  not  see  how  this  transformation  could  be 
readily  incorporated  into  an  automatic  compacter. 

We  are  encouraged  that,  except  for  this  last  instance, 
the  trace  scheduler  performs  or  can  be  readily  extended  to 
perform  as  well  as  a  skilled  microprogrammer .  We  look 
forward  to  more  extensive  tests  of  trace  scheduling  and  in 
particular  to  evaluations  of  the  space-saving  procedures 
suggested  by  Fisher. 
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Hand       Trace     Locally 
Code  segment  Sequential   compacted   scheduled   compacte 

Floating  add 
initialization 
coetficient  shift 
(n  =  no.  of  shift  operations) 
add 

Floating  Multiply 
initialization 


14.5 


15.5 

7.5 

9.5 

13 

3+3n 

3+n 

3+2n 

3+2n 

9 

6 

6 

8 

33 

14 

14 

22 

Floating  divide 

— 

initialization              19.5 

8.6 

7.5 

loop                        4 

3 

3.4 

(for  each  of  48  iterations) 

normalize                  10.5 

4.5 

5.5 

7.5 


Table  1.  Weighted  average  execution  time  (in  cycles)  for  sequential, 
hand  compacted,  trace  scheduled,  and  locally  compacted  codes. 
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APPENDIX  A 

Shown  below  are  three  PUMA  microcode  segments  used  in  our 
experiments,  in  their  seqential,  hand  compacted,  machine 
compacted  (trace  scheduled) ,  and  locally  compacted  forms. 
To  limit  our  experiments,  we  have  excluded  some  of  the 
error-handling  routines  and  other  microcode  sequences 
referenced  by  these  segments.  In  such  cases  we  have 
indicated,  as  part  of  the  sequential  code,  the  registers 
which  are  "live"  on  entry  to  these  routines. 
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30A 


30POSAC 
3  0NEGAC 
3  0XKSMAL 


TINYTEST 

30ADDZRO 
30TRyi6 

3  0TRY4 

3  0TRY1 


3  0SHFTDN 
30SAVEP6 
30NEGBF 
30POSBF 
30  ADD 


WXI FLOAT 
30ILLEXP 


THEN  30ILLEXP 
THEN  30ILLEXP 


PART  1:  PRESHIFT 
EO:BUF=XK 
AC=BUF 
E1:BUF=XJ 
MQ=BUF 
IF  ILL(EO: 
IF  ILL(Ei: 
=E0-E1 

E2=E0-E1;IF  EALU(ll)  THEN  30XKSMAL 
YO=AC 
BUF=YO 
AC=MQ 

IF  AC (59)  THEN  3  0NEGAC  ELSE  3  0POSAC 
MQ=0;GO  TINYTEST 
MQ=-0;GO  TINYTEST 
AC=MQ;MQ=AC 
E2=7777-E2[F] 
EO=E1;GO  30A 

IF  E2(6-ll)=0  THEN  30TRY16 
IF  ''E2(7-ll)=0  THEN  3  0ADDZRO      ' ,  '^ '^  .  '  ' 
AC=MQ;MQ=AC  ''.'■" 

AC:MQ=SHIFT(AC:MQ,A4) ;G0  30TRY16 
AC=MQ;GO  30SAVEP6  -; .  _-' 

PART  2:  SHIFT  -■'   '■  ^ 

=  E2;IF  '^EALU(4)  iEALU{5)  THEN  30T-RY4  '-y' 
AC:MQ=SHIFT(AC:iyiQ,Al6)  -^-  '^-^' 

E2=E2-20 [F] ;G0  30TRY1G 

=E2;IF  "EALU{2) |EALU(3)  THEN  30TRY1   • 
AC:MQ=SHIFT(AC:MQ,A4) 
E2=E2-4[F] ;G0  30TRY4 

=E2;IF  '^EALU(O)  |EALU(1)  THEN  30SHFTDN 
AC:MQ=SHIFT(AC:MQ,A1) 
E2=E2-1[F]  ;G0  30TRY1       ^--ilr.. 
PART  3:  POSTSHIFT 
AC=MQ;MQ=AC 

IF  BUF(59)  THEN  30NEGBF  ELSE  30POSBF 
(AC)=AC-0[SAVEPG] ;G0  3  0ADD 
(AC)=AC+0[SAVEPG]   . 
AC=MQ;MQ=AC 
=AC+BUF[USEPG] 
AC=AC+BUF[USEPG] ;IF  "ALU ( 59) /ALU ( 48)  THEN 

WXI FLOAT 
=  E0+1 
E0=E0+1 

AC=SHIFT(AC:MQ,A1) ;G0  WXIFLOAT 
XI=EO:AC 

*  LIVE  VARIABLES:  AC,  BUF,  EO ,  El 


FLOATING  ADD  ~  SEQUENTIAL  CODE 
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30 

BOA 

BOB 


TINYTEST 

30SHIFT 

30SH16 

+ 

30TRY4 

30SH4 

+ 

3  0TRY1 

30SH1 

+ 

30SHFTDN 

+ 

30NEGBUF 

30POSBUF 

30  ADD 


3  0ADDSML 


3  0ADDZRO 
3  0NEGAC 
3  0XKSMAL 


EO:BUF=XK 

AC=BUF;E1:BUF=XJ;IF  ILL (EG)  THEN  3  0ILLEXP 

MQ=BUF;YO=AC;IF  ILL(El)  THEN  30ILLEXP 

AC=MQ ;MQ=AC ; =EO-El 

E2=E0-E1;IF  EALU(ll)  THEN  30XKSMAL 

BUF=YO;MQ=0;IF  AC (59)  THEN  3  0NEGAC 

IF  '^E2(6-ll)=0  THEN  30ADDSML 

=  E2;IF  '^EALU(4)  |EALU(5)  THEN  3  0TRY4 

AC:MQ=SHIFT(AC:MQ,A16) ;E2=E2-20 [F] ; 

IF  EALU(4) |EALU(5)  THEN  30SH16 

=  E2;IF  ''EALU(2)  |EALU(3)  THEN  3  0TRY1 

AC:MQ=SHIFT(AC:MQ,A4) ;E2=E2-4[F] ; 

IF  EALU(2) |EALU(3)  THEN  3  0SH4 

=  E2;IF  ''EALU(O)  |EALU(1)  THEN  30SHFTDN 

AC:MQ=SHIFT(AC:MQ,A1) ;E2=E2-1 [F] ; 

IF  EALU(O) lEALU(l)  THEN  3  0SH1 

AC=MQ;MQ=AC;IF  BUF(59)  THEN  30NEGBUF 

ELSE  3  0POSBUF 
(AC)=AC-0[SAVEPG] ;G0  30ADD 
(AC)=AC+0[SAVEPG] 

AC=MQ;MQ=AC;IF  OPCODE (2)  THEN  3  0DP2 
=AC+BUF[USEPG] ;IF  OPCODE (1)  THEN  30DP 
NEWPARCEL;AC=AC+BUF[USEPG] ;=E0+1; 
IF  "ALU(59)/ALU(48)  THEN  WXIFLOAT 
AC=SHIFT(AC:MQ,A,1)  ;EO  =  EO+1;GO  WXIFLOAT 
MQ=AC;AC=MQ;IF  "E2(7-11)=0  THEN  30ADDZRO 
MQ=SHIFT(AC:MA,A4) ;=E2;IF  EALU(4) |EALU(5) 

THEN  30SH16  ELSE  30TRY4 
MQ=AC;IF  BUF(59)  THEN  30NEGBUF  ELSE  30POSBUF 
MQ=-0;IF  E2(6-ll)  THEN  30SHIFT  ELSE  30ADDSML 
Y0=AC;AC=MQ;MQ=AC;E2=7777-E2[F] 
E0=E1;BUF=Y0;MQ=0;IF  AC(59)  THEN  30NEGAC 

ELSE  TINYTEST 


FLOATING  ADD 


HAND  COMPACTED 
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PART  1:  PRESHIFT 


30 


30A 

NLABIO 
30POSAC 
3  0NEGAC 
3  0XKSMAL 

TINYTEST 


3  0ADDZRO 


EO:BUF=XK 

AC=BUF;E1:BUF=XJ;IF  ILL(EO)  THEN  30ILLEXP 

MQ=BUF;=E0-E1 

IF  ILL(El)  THEN  30ILLEXP 

E2=E0-E1;Y0=AC;IF  EALU{11)  THEN  30XKSMAL 

BUF=YO;AC=MQ 

MQ=0;IF  AC (59)  THEN  30NEGAC  ELSE  TINYTEST 

MQ=-0;GO  TINYTEST 

AC=MQ;MQ=AC;E0=E1 

Y0=AC;E2=7777-E2[F] ;G0  NLABIC 

IF  E2(6-ll)  THEN  30TRY16 

IF  '^E2(7-ll)  THEN  30ADDZRO 

AC=MQ;MQ=AC 

AC:MQ=SHIFT(AC:MQ,A4) ;G0  30TRY16 

AC=MQ;GO  30SAVEP6  "  " 


*  PART  2:  SHIFT 

30TRY16      =E2;IF  ~EALU(4) |EALU(5)  THEN  3  0TRY4 

E2=E2-20[F] ;AC:MQ=SHIFT(AC:MQ,A16) ;G0  30TRY16 

30TRY4       =E2;IF  ''EALU(2)  |EALU(3)  THEN  3  0TRY1 

E2=E2-4[F] ;AC:MQ=SHIFT(AC:MQ,A4) ;G0  30TRY4 

3  0TRY1       =E2;IF  ''EALU(O)  |EALU(1)  THEN  3  0SHFTDN 

E2=E2-1[F] ;AC:MQ=SHIFT(AC:MQ,A1) ;G0  30TRY1 


30SHFTDN 
30POSBF 
3  0SAVEP6 
30NEGBF 
30POSBF 
30  ADD 


PART  3:  POSTSHIFT 

AC=MQ;MQ=AC;  =E0+1;  IF  BUF(59)  THEN  30NEGBF  ELSE 

=E0+1;IF  BUF(59)  THEN  30NEGBF  ELSE  30POS3F 

E0=EG+1; (AC)=AC-0[SAVEPG] ;G0  3  0ADD 

E0=E0+1; (AC)=AC+0[SAVEPG] 

AC=MQ;MQ=AC 

=AC+BUF[USEPG] 

AC=AC+BUF[USEPG] ;IF  ~ALU ( 59) /ALU ( 48)  THEN 

WXIFLOAT 
AC=SHIFT(AC:MQ,A1) ;G0  WXIFLOAT 
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*  PART  1:  PRESHIFT 
30  EO:BUF=XK 

AC=BUF;E1:BUF=XJ 

KQ=BUF;IF  ILL(EO)  THEN  3  0ILLEXP 

IF  ILL(El)  THEN  30ILLEXP 

=E0-E1 

E2=E0-E1;IF  EALU(ll)  THEN  30XKSMAL 
BOA  YO=AC 

BUF=YO;AC=MQ 

IF  AC (59)  THEN  30NEGAC  ELSE  30POSAC 
30POSAC      MQ=0;GO  TINYTEST 
30NEGAC      MQ=-0;GO  TINYTEST 
30XKSMAL     AC=MQ;MQ=AC;E2=7777-E2 [F] 

EO=E1;GO  30A 
TINYTEST     IF  E2(6-ll)=0  THEN  30TRY16 

IF  ''E2(7-ll)=0  THEN  30ADDZRO 

AC=MQ;MQ=AC 

AC:MQ=SHIFT(AC:MQ,A4) ;G0  30TRY16 
30ADDZRO     AC=MQ;GO  3  0SAVEP6 

*  PART  2:  SHIFT 

30TRY16      =E2;IF  '^EALU(4)  |EALU(5)  THEN  30TRY4 

AC:MQ=SHIFT(AC:MQ,A16) ;E2=E2-20 [F] ;G0  30TRY16 

30TRY4       =E2;IF  '^EALU(2)  |EALU(3)  THEN  3  0TRY1 

AC:MQ=SHIFT(AC:MQ,A4) ;E2=E2-4[F] ;G0  30TRY4 

3  0TRY1       =E2;IF  ''EALU(O)  |EALU(1)  THEN  3  0SHFTDN 

AC:MQ=SHIFT(AC:MQ,A1) ;E2=E2-1[F] ;G0  30TRY1 

*  PART  3:  P.OSTSHIFT 
3  0SHFTDN     AC=MQ;MQ=AC 

30SAVEP6     IF  BUF{59)  THEN  30NEGBF  ELSE  30POSBF 
30NEGBF      (AC)=AC-0[SAVEPG] ;G0  30ADD 
30POSBF      (AC)=AC-0[SAVEPG] 
30 ADD        AC=MQ;MQ=AC 

=AC+BUF[USEPG] 

AC=AC+BUF[USEPG] ; 
+  IF  '^ALU(59)/ALU(48)  THEN  WXIFLOAT 

=  E0+1 

E0=E0+1;AC=SHIFT(AC:MQ,A1) ;G0  WXIFLOAT 
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40 


40XJNEG 
40GETXK 


40XKNEG 
40TESTILL 


E1:BUF=XJ;  IF  REG(59)  THEN  40XJNEG 
AC=BUF;GO  40GETXK 


40INTMUL 
40XJZERO 


AC=-BUF 
E2:BUF=XK: 


IF  REG(59)  THEN  40XKNEG 


MQ=BUF;GO  40TESTILL 

MQ=-BUF 

IF  ILL(El)  THEN  40ILLEXP 

IF  ILL(E2)  THEN  40ILLEXP 

Y1=AC 

AC=SHIFT(AC:MQ,L1) 

Y2=AC 

AC=SHIFT(AC:MQ,L1) 

Y4=AC 

AC=SHIFT(AC:MQ,L1) 

YO=AC 

BUF=Y1 

=AC-BUF 

AC=AC-BUF 

Y7=AC 

BUF=Y2 

=AC-BUF 

AC=AC-BUF 

Y5=AC 

=AC-BUF 

AC=AC-BUF 

Y3=AC 

AC=SHIFT(AC:MQ,L1) 

Y6=AC 

IF  ZERO(El)  THEN  40XJZERO 

IF  ZER0(E2)  THEN  WXIZERO 

=E1+E2 

E0=E1+E2;IF  XFOFL  THEN  FLRESFLO 

AC=0 

E2=15;GO  EXIT 

IF  ''ZER0(E2)  THEN  WXIZERON 

E0=6000;GO  40INTMUL 


WXIZERO  *  LIVE  VARIABLES:  NONE 

FLRESFLO  *  LIVE  VARIABLES:  EO 

EXIT  *  LIVE  VARIABLES:  Y0-Y7, 

40ILLEXP  *  LIVE  VARIABLES:  XJ,  XK, 


MQ,  AC,  EO, 
El,  E2 


E2 
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40 

+ 
40XJPOS 


40XJNEG 
4  0FORMMP 


40XKNEG 
40B 


40IMTMUL 
40XJZERO 


E1:BUF=XJ;MQ=0;IF  REG(59)  THEN  40XJNEG 

ELSE  40XJPOS 
AC=BUF;E2:BUF=XK;IF  ILL(El)  THEN  40ILLEXP 
ELSE  4  4FORMMP 

AC=-BUF;E2:BUF=XK;IF  ILL(El)  THEN  40ILLEXP 
Y1=AC;AC=SHIFT(AC:MQ,L1) ;IF  ILL(E2)  THEN 

40ILLEXP 
Y2=AC;AC=SHIFT(AC:MQ,L1) ;IF  BUF(59)  THEN  40XKNEG 
BUF=Y1;MQ=BUF;G0  40B 
BUF=Y1;MQ=-BUF 
Y4=AC;AC=SHIFT (AC :MQ, LI ) 
YO=AC;=AC-BUF 
BUF=Y2;AC=AC-BUF 
Y7=AC;=AC-BUF 

AC-BUF;IF  ZERO (El)  THEN  4  0XJZERO 
Y5=AC;=AC-BUF;IF  ZER0(E2)  THEN  WXIZERON 
AC=AC-BUF;=E1+E2 

Y3=AC;AC=SHIFT(AC:MQ,L1) ;E0=E1+E2;IF  XFOFL 
THEN  FLRSFLON 
Y6=AC;AC=0;E2=15 

Y5=AC;=AC-BUF;IF  ''ZER0(E2)  THEN  WXIZERON 
AC=AC-BUF;IF  ''OPCODE(l)  THEN  WXIZERON 
Y3=AC;AC=SHIFT(AC:MQ,L1) ;E0=6000;GO  40INTMUL 
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40  E1:BUF=XJ;IF  REG (59)  THEN  40XJNEG 

40GETXK      AC=BUF;E2:BUF=XK;IF  REG(59)  THEN  40XKNEG 
40TESTILL    Y1=AC ;MQ=BUF ; IF  ILL(El)  THEN  40ILLEXP 
NLABIO       BUF=Y1;AC=SHIFT(AC:MQ,L1) ;IF  ZER0(E2)  THEN 
+  WXIZERO 

y2=AC;AC=SHIFT(AC:MQ,Ll) ;IF  ILL(E2)  THEN 
+  40ILLEXP 

Y4=AC;AC=SHIFT(AC:MQ,L1) ;IF  ZERO(El)  THEN 
+  40XJZERO 

YO=AC ; =AC-BUF ; =E1+E2 

BUF=y2;AC=AC-BUF;E0=El+E2;IF  XFOFL  THEN  FLRESFLO 

Y7=AC;=AC-BUF;E2=15  :. 

AC=AC-BUF 

Y5=AC;=AC-BUF 

AC=AC-BUF 

Y3=AC;AC=SHIFT (AC :MQ , LI ) 

Y6=AC;AC=0;GO  EXIT 

YO=AC;=AC-BUF;IF  "ZER0(E2)  THEN  WXIZERON 

BUF=Y2;AC=AC-BUF;E0=6G00 

Y7=AC;=AC-BUF 

AC=AC-BUF 

Y5=AC;=AC-BUF 

AC=AC-BUF  -• 

Y3=AC;AC=SHIFT(AC:MQ,L1) 

Y6=AC;AC=0;E2=15;GO  EXIT 

Y1=AC;MQ=-BUF;IF  ILL(El)  THEN  40ILLEXP  ELSE 
40XKNEG 
rOXJNEG      AC=-BUF;E2:BUF=XK;IF  REG(59)  THEN  40XKNEG 

ELSE  40TESTILL 


40INTMUL 
4  0XJZERO 


40INTMUL_N 
40XKNEG 
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40 


40XJNEG 
40GETXK 


40XKNEG 
40TESTILL 


40INTMUL 
40XJZERO 


E1:BUF=XJ;IF  REG (59)  THEN  40XJNEG 

AC=BUF;GO  40GETXK 

AC=-BUF 

E2:BUF=XK;IF  REG(59)  THEN  40XKNEG 

MQ=BUF;GO  40TESTILL 

MQ=-BUF 

IF  ILL(El)  THEN  40ILLEXP 

IF  ILL(E2)  THEN  40ILLEXP 

Yl=AC;AC=SHIFT(AC:MQ,Ll) 

Y2=AC ; AC=SHIFT (AC :MQ , Ll ) 

Y4=AC ; AC=SHIFT (AC :MQ , Ll ) 

BUF=Y1 

=AC-BUF;YO=AC 

AC=AC-BUF;BUF=Y2 

=AC-BUF;Y7=AC 

AC=AC-BUF 

=AC-BUF;Y5=AC 

AC=AC-BUF 

AC=SHIFT(AC:MQ,L1) ;Y3=AC 

Y6=AC;IF  ZERO(El)  THEN  40XJZERO 

IF  ZER0(E2)  THEN  WXIZERO 

=E1+E2 

E0=E1+E2;IF  XFOFL  THEN  FLRESFLO 

AC=0;E2=15;GO  EXIT 

IF"ZER0(E2)  THEN  WXIZERON 

E0=6000;GO  40INTMUL 
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44 
44XKPOS 


4  4XKNEG 


44A 


SKIP 


44L 

4 4 LOOP 

44SUBTR 


44DONE 


44X 

44NORND 


4  4  PCS 
WXI FLOAT 
44SHIFT 


4 4 ROUND 

44XJZERO 

44READD 


E2:BUF=XK;  IF  REG(59)  THEN  44XKNEG 
AC=BUF 
YO=AC 
E1:BUF=XJ 
AC=BUF;GO  4  4A 
AC=-BUF 
YO=AC 
E1:BUF=XJ 
AC=-BUF 
Y1=AC 

IF  ILL(El)  THEN  44ILLEXP 
IF  ILL(E2)  THEN  44ILLEXP 
IF  ZERO(El)  THEN  44XJZERO 
IF  ZER0(E2)  THEN  WXIINFN 
=E1-E2 

E0=E1-E2;  IF  XFOFL  THEN  FLRSFLON 
=E0-60 
E0=E0-60 

IF  '^AC(59)  THEN  SKIP 
AC=-AC 
MQ=0 

AC:MQ=SHIFT(AC:MQ,A1) 
AC:MQ=SHIFT(AC:MQ,01) 
BUF=yO 

IF  AC<<BUF&"MQ(49)  then  44LOOP  ELSE  44SUBTR 
AC:MQ=SHIFT(AC:MQ,Z1) ;G0  44L 
=AC-BUF 

AC=AC-BUF;  IF  ALU (59)  THEN  44READD 
IF  MQ(50)  THEN  44DONE 
AC:MQ=SHIFT(AC:MQ,01) ;G0  44L 
AC=MQ 

IF  MQ(49)  THEN  44SHIFT 
IF  OPCODE (0)  THEN  4  4ROUND 
AC=SHIFT(AC:MQ,A1) 
NEWPARCEL 
BUF=Y1 

IF  "BUF(59)  THEN  44POS 
AC=-AC 

IF  FOFL(EO)  THEN  FLRESFLO  ELSE  WXIFLOAT 
XI=E0:AC;GO  NEWINSTR 
=  E0+1 
E0=E0+1 

AC=SHIFT(AC:MQ,A1) ;G0  44X 
(AC)=AC+0[NOP] 
AC=AC+0[NOP] ;G0  44NORND 
NEWPARCEL 

IF  ZER0(E2)  THEN  WXIINDEF  ELSE  WXIZERO 
=AC+BUF 
AC=AC+BUF;GO  44LOOP 
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NEWINSTR 

WXIINDEF 

WXIINFN 

WXIZERO 

FLRSFLON 

FLRFSFLO 

44ILLEXP 


LIVE  VARIABLES: 
LIVE  VARIABLES: 
LIVE  VARIABLES: 
LIVE  VARIABLES: 
LIVE  VARIABLES: 
LIVE  VARIABLES: 
LIVE  VARIABLES: 


NONE 

NONE 

MQ,  AC 

NONE 

EO 

EO 

XJ,  XK, 


El,  E2 
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44 

44XKPOS 


44XKNEG 
44A 


44COMP 


4 4 LOOP 

+ 

44SUBTR 


4 4 RE ADD 
44DONE 


44NORND 

+ 


44NEGRES 
44SHIFT 


4 4 ROUND 
44XJZERO 


E2:BUF=XK;IF  REG (59)  THEN  44XKNEG 
AC=BUF;E1:BUF=XJ;IF  ILL(E2)  THEN  44ILLEXP 
YO=AC;AC=BUF;IF  ILL(El)  THEN  44ILLEXP  ELSE  44A 
AC=-BUF;E1:BUF=XJ;IF  ILL{E2)  THEN  44ILLEXP 
YO=AC;AC=-BUF;IF  ILL{E1)  THEN  44ILLEXP 
Y1=AC;MQ=0;IF  ZERO(El)  THEN  44XJZERO 
BUF=YO;IF  ZER0(E2)  THEN  WXIINFN 
=E1-E2;IF  AC(59)  THEN  44C0MP 
E0=E1-E2;IF  XFOFL  THEN  FLRFLON  ELSE  44B 
E0=E1-E2;AC=-AC;IF  XFOFL  THEN  FLRSFLON 
=E0-6  0;AC:MQ=SHIFT(AC:MQ,A1) 
E0=E0-60;AC:MQ=SHIFT(AC:MO,Ol) ; 
IF  AC<<BUF&'^MQ(4  9)  THEN  44LOOP  ELSE  44SUBTR 
AC:MQ=SHIFT(AC:MQ,Z1)  ;IF  AC<<BUF&'^MQ  (  49)  THEN 

4 4 LOOP 
=AC-BUF;IF  MQ(50)  THEN  4  4DONE 
AC=AC-BUF;IF  ALU  (59)  THEN  44RE^JDD 
AC:HQ=SHIFT(AC:MQ,01)  ;IF  AC<<BUF&''MQ  (  49) 
THEN  44L00P  ELSE  44SUBTR 
=AC+BUF 

AC=AC+BUF;GO  44L00P 

AC=MQ;BUF=Y1;IF  MQ(49)  THEN  44SHIFT 
(AC)=AC+0 [NOP] ;IF  OPCODE (0) 
NEWPARCEL ;AC=SHIFT (AC :MQ, Al 

44NEGRES 
XI=EO:AC;IF  FOFL(EO)  THEN  FLRESFLO  ELSE  NEWINSTR 
AC=-AC;IF  FOFL(EO)  THEN  FLRESFLO  ELSE  WXIFLOAT 
=E0+1;AC=SHIFT(AC:MQ,A1) 

(AC)=AC+0[NOP]  ;E0  =  E0+1;IF  OPCODE(-O)  THEN  44ROUND 
ELSE  44NORND 
AC=AC+0 [NOP] ;G0  44NORND 
NEWPARCEL;IF  ZER0(E2)  THEN  WXIINDEF  ELSE  WXIZERO 


THEN  44ROUND 

;IF  BUF(59)  THEN 
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44 

44XKPCS 


44XKNEG 
NLAB15 


SKIP 
NLAB22 


44L 


44LOOP 
44DONE 
44X 
44NORtnD 

44POS 

NLAB43 

44SHIFT 

44ROUND 
NLAB45 
44XJZERO 
44READD 

NLAB5 
44ROUND_I 


E2:EUF=XK;IF  REG(59)  THEN  44XKNEG 
AC=BUF;E1:BUF=XJ;IF  ZER0{E2)  THEN  NLAB5 
yO=AC;AC=BUF;IF  ILL(E2)  THEN  44ILLEXP  ELSE 

1^AB15 
AC=BCF;E1:BUF=XJ;IF  ILL(E2)  THEN  44ILLEXP 
YO=AC;AC=-BUF;IF  ZER0(E2)  THEN  WXIINFN 
=E1-E2;BUF=Y0;IF  ''AC(59)  THEN  SKIP 
AC=-AC;Y1=AC 
MQ=0;GG  NLAB22 

Y1=AC;MQ=0;IF  ILL(El)  THEN  44ILLEXP 
AC:MQ=SHIFT(AC:MQ,A1) ;IF  ZERO(El)  THEN  44XJZERO 
AC:MQ=SHIFT(AC:MQ,01) ;E0=E1-E2;IF  XFOFL  THEN 

FLRSFLON 
=AC-BUF;IF  AC<<BUF&~MQ ( 49)  THEN  4  4LGGP 
AC=AC-BUF;IF  ALU (59)  THEN  44READD 
IF  MQ(50)  THEN  44DONE 
AC:MQ=SHIFT(AC:MQ,01) ;G0  44L 
AC:MQ=SHIFT{AC:MQ,Z1) ;G0  44L 
AC=MQ;BUF=Y1;=E0-60;IF  MQ(49)  THEN  NLAB43 
E0=E0-6C;NEWPARCEL;IF  OPCODE (0)  THEN  44RCUND_N 
AC=SHIFT(AC:MQ,A1)  ;IF  ''BUF{59)  THEN  44POS 
AC=-AC 

XI  =  EO:AC;IF  FOFL(EO)  THEN  FLRESFLO  ELSE  NEV7INSTR 
AC=SHIFT(AC:MQ,A1) ;E0=E0-60 
=  EO+l;NEWPAfiCEL;IF  OPCODE  (0)  THEN  4  4ROUNT) 
E0  =  EQ-Fl;GO  4'4NOROT) 
(AC)=AC+0  [NOP]  ;EO=EO+1 
AC=AC+0[NOP] ;G0  44NORND 

NEWPARCEL;rF  ZER0(E2)  THEN  WXIINDEF  ELSE  WXIZERO 
=AC+BUF 

AC=AC+BUF.;GO  40 LOOP 
AC=BUF;GO  WXIINEF 
(AC)=AC+0[NOP] ;G0  NLAB45 
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44 
44XKPOS 


44XKNEG 
44A 


SKIP 


44L 

4 4 LOOP 
4  4SUBTR 


44DONE 

44X 

44NORND 


44POS 
WXI FLOAT 
44SHIFT 

4 4 ROUND 

44XJZERO 
44READD 


E2:BUF=XK;IF  REG(59)  THEN  44XKNEG 
AC=BUF;E1:BUF=XJ 
Y0=AC;AC=BUF;GO  44A 
AC=-BUF;E1:BUF=XJ 
yO=AC;AC=-BUF 

Y1=AC;IF  ILL(El)  THEN  44ILLEXP 
IF  ILL(E2)  THEN  44ILLEXP 
IF  ZERO(El)  THEN  44XJZERO 
IF  ZER0(E2)  THEN  WXIINFN 
=E1-E2 

E0=E1-E2;IF  XFOFL  THEN  FLRSFLON 
=E0-60 

E0=E0-60;IF  "AC(59)  THEN  SKIP 
AC=-AC 
MQ=0 

AC:MQ=SHIFT(AC:MQ,A1) 
AC:MQ=SHIFT(AC:MQ,01) ;BUF=yO 

IF  AC<<BUF&''MQ(49)  THEN  44LOOP  ELSE  44SUBTR 
AC:MQ=SHIFT(AC:MQ,Z1) ;G0  44L 
=AC-BUF 

AC=AC-BUF;IF  ALU (59)  THEN  44READD 
IF  MQ{50)  THEN  44DONE 
AC:MQ=SHIFT(AC:MQ,Z1) ;G0  44L 
AC=MQ;IF  MQ(49)  THEN  44SHIFT 
IF  OPCODE (0)  THEN  4  4ROUND 
AC=SHIFT{AC:MQ,A1) ;NEWPARCEL ;BUF=Y1 
IF  ''BUF(59)  THEN  44POS 
AC=-AC 

IF  FOFL(EO)  THEN  FLRESFLO  ELSE  WXIFLOAT 
XI=E0:AC;GO  NEWINSTR 
=  E0+1 

E0=E0+1;AC=SHIFT(AC:MQ,A1) ;G0  44X 
(AC)=AC+0[NOP] 
AC=AC+0[NOP] ;  GO  44NORND 

NEWPARCEL;IF  ZER0(E2)  THEN  WXIINDEF  ELSE  WXIZERO 
=AC+BUF 
AC=AC+BUF;GO  44LOOP 
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APPENDIX  B 

Given  below  is  a  detailed  comparison  of  the  timings  of  the 
codes  shown  in  Appendix  A.  Each  row  gives  the  time  for  one 
possible  path  through  the  code.  The  first  two  or  three 
columns  specify  the  values  of  conditions  for  which  that  path 
is  taken;  the  last  four  columns  give  the  timings  for  the 
four  versions  of  the  code.  The  last  page  of  this  appendix 
lists  the  space  requirements  of  the  various  codes. 
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(A)  MAIN  PATH 
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NEC. 


XK 


EXP    SEQUENTIAL 


SMALL 

SMALL 

CODE 

0 

0 

0 

14 

0 

0 

1 

17 

0 

1 

0 

17 

0 

1 

1 

20 

1 

0 

0 

14 

1 

0 

1 

17 

1 

1 

0 

17 

1 

1 

1 

20 

HAND 

MACHINE 

LOCALLY 

COMPACTED 

COMPACTED 

COMPACTED 

7 

8 

12 

9* 

11 

14 

8 

10 

14 

11* 

13 

16 

7 

9 

12 

9* 

12 

14 

8 

11 

14 

11* 

14 

16 

shift  part  is  1  cycle  shorter  for  these  paths 


(B)  ADDZERO  PATH  (  one  operand 


:g. 

XK 

SEQUENTIAL 

HAND 

MACHINE 

LOCALLY 

SMALL 

CODE 

COMPACTED 

COMPACTED 

COMPACTED 

0 

0 

15 

8 

9 

14 

0 

1 

18 

9 

11 

16 

1 

0 

15 

8 

10 

14 

1 

1 

18 

9 

13 

16 

PART  2:  SHIFT 


SEQUENTIAL 

HAND 

MACHINE 

LOCALLY 

CODE 

COMPACTED 

COMPACTED 

COMPACTED 

INSIDE  LOOP 

3*3 

3*1 

3*2 

3*2 

OUTSIDE  LOOP 

3*0 

3*1 

3*0 

3*0 

PART  3:  POST  SHIFT 


OVERFLOW 

SUM 

SEQUENTIAL 

HAND 

MACHINE 

LOCALLY 

NEC. 

CODE 

COMPACTED 

COMPACTED 

COMPACTED 

0 

0 

9 

6 

6 

8 

0 

1 

9 

6 

6 

8 

1 

0 

6 

5 

5 

6 

1 

1 

6 

5 

5 

6 
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XJ 

XJ 

XK 

ZERO 

NEC. 

NEC. 

0 

0 

0 

0 

0 

1 

0 

1 

0 

0 

1 

1 

1 

0 

0 

1 

0 

1 

1 

1 

0 

1 

1 

1 

INITIALIZATION  Q£ 


SEQUENTIAL    HAND 

CODE     COMPACTED 


33 
33 
33 
33 
32 
32 
32 
32 


:ilffi  MULTIPLY 

FISHER'S 

MACH 

COMPACTED 

COMPAi 

14 

14 

14 

14 

16 

16 

16 

16 

LOCALLY 

COMPACTED 

22 
22 
22 
22 
22 
22 
22 
22 


*  Because  our  implementation  did  not  include  space  saving, 
our  version  was  somewhat  longer  than  Fisher's  but  was  faster 
for  the  (relatively  rare)  case  XJ=0. 
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K 

XJ 

XJ 

SEQUENTIAL 

HAND 

MACHINE 

LOCALLY 

G. 

ZERO 

NEC. 

CODE 

COMPACTED 

COMPACTED 

COMPACTED 

0 

0 

0 

19 

9* 

7 

14 

0 

0 

1 

20 

9* 

8 

15 

0 

1 

- 

11 

4 

7 

7 

1 

0 

0 

19 

9* 

7 

14 

1 

0 

1 

20 

9* 

8 

15 

1 

1 

- 

11 

4 

7 

7 

these  paths  will  be  1  cycle  shorter  when  AC<<BUF TmQ (49) 


PART  2: 

LOOP 

SEQUENTIAL 

HAND 

MACHINE 

LOCALLY 

CODE 

COMPACTED 

COMPACTED 

COMPACTED 

MAIN 

LOOP 

5 

4 

.4 

5 

READD 

6 

5 

5 

6 

AC<<BUFrMQ(49) 

2 

1 

2 

2 

PART  3: 

POST- 

LOOP 

QUOTIENT 

SHIFT 

ROUND 

SEQUENTIAL 

HAND 

MACHINE 

LOCALLY 

NEG. 

CODE 

COMPACTED 

COMPACTED 

COMPACTED 

0 

0 

0 

9 

4 

4 

6 

0 

0 

1 

12 

5 

6 

8 

0 

1 

0 

11 

5 

6 

8 

0 

1 

1 

14 

6 

7 

10 

1 

0 

0 

10 

4 

5 

7 

1 

0 

1 

13 

5 

7 

9 

1 

1 

0 

12 

5 

7 

9 

1 

1 

1 

15 

6 

8 

11 

FLOATING  ADD 


SPACE  REQUIREMENTS 
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PRE  SHIFT 

SHIFT 

POST  SHIFT 

TOTAL  SPACE  (LINES) 


SEQUENTIAL 

HAND 

MACHINE 

LOCALLY 

CODE 

COMPACTED 

COMPACTED 

COMPACTED 

22 

15 

15 

18 

10 

6 

6 

6 

10 

7 

8 

9 

42 


28 


29 


33 


INITIALIZATION  OF  FLOATING  MULTIPLY 


SEQUENTIAL 

HAND 

FISHER'S 

MACHINE 

LOCALLY 

CODE 

COMPACTED 

COMPACTED 

COMPACTED 

COMPACTED 

TOTAL  SPACE    36 

19 

19 

22 

26 

(LINES) 

FLOATING  DIVISION 


PRE  LOOP 

LOOP 

POST  LOOP 

TOTAL  SPACE  (LINES) 


SEQUENTIAL 

HAND 

MACHINE 

LOCALLY 

CODE 

COMPACTED 

COMPACTED 

COMPACTED 

26 

12 

13 

17 

8 

6 

7 

8 

15 

9 

11 

11 

49 


27 


31 


36 


This  book  may  be  kept 

FOURTEEN    DAYS 

A  fine  will  1)C  chartrcd  for  each  day  the  book  is  kept  overtime. 
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